﻿Public NotInheritable Class AboutBox

    Private Sub AboutBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If frmMain.User <> "" Then
            lblUser.Text = String.Format("Licenced to: {0} ({1})", frmMain.User, frmMain.UserLevel(Val(frmMain.RegisteredLevel)))
        Else
            lblUser.Text = "Licenced to: Not Registered"
        End If
        'Licence Type is displayed
        lblL_Type.Text = String.Format("License Type: {0}", frmMain.LicenseType)
        lblExpiration.Text = String.Format("Expiration: {0}", frmMain.Expiration)
        lblReg_Status.Text = String.Format("Reg Status: {0}", frmMain.Reg_Status)
        If frmMain.Reg_Status = "Registered" Then
            PictureBox2.Visible = True
            PictureBox3.Visible = True
            PictureBox4.Visible = True
            PictureBox5.Visible = True
        Else
            PictureBox2.Visible = False
            PictureBox3.Visible = False
            PictureBox4.Visible = False
            PictureBox5.Visible = False
        End If
    End Sub
End Class
